home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / t1tot2.ps < prev    next >
Text File  |  1997-09-20  |  13KB  |  486 lines
  1. %    Copyright (C) 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % t1tot2.ps
  19. % Convert a Type 1 font with Type 1 CharStrings to Type 2.
  20. % **************** THIS FILE DOES NOT WORK. ****************
  21. % **************** DON'T TRY TO USE IT. ****************
  22.  
  23. (type1ops.ps) runlibfile
  24.  
  25. % ---------------- CharString conversion ---------------- %
  26.  
  27. % In the following lists, implemented conversions are marked with a +.
  28. % The following conversions are required for each CharString:
  29. % +    Remove lenIV initial bytes and decrypt.
  30. % +    Move width to first stem/moveto.
  31. % +    Move all hstem/vstem commands to the beginning,
  32. %      including any from subroutines.
  33. %    Fold side bearing into first moveto.
  34. % +    Adjust Subr indices for bias.
  35. % +    Remove all closepath.
  36. %    Convert Flex othersubrs to new flex commands.
  37. %    Convert hint replacement to -hm and hintmask.
  38. %    Convert MM blend othersubrs to new blend command.
  39. %    For seac, convert char bodies to subrs, add hint replacement.
  40. % +    Make width relative to nominalWidthX, or omit if equal to
  41. %      defaultWidthX.
  42. % The following patterns allow shortening CharStrings:
  43. % +    rlineto+ => rlineto
  44. % +    rlineto+ (hlineto | vlineto) rlineto+ => rlineto
  45. % +    vlineto (hlineto vlineto)* [hlineto] => vlineto
  46. % +    hlineto (vlineto hlineto)* [vlineto] => hlineto
  47. % +    rrcurveto+ => rrcurveto
  48. % +    rrcurveto+ rlineto => rcurveline
  49. % +    rlineto+ rrcurveto => rlinecurve
  50. % +    (vhcurveto hvcurveto)* [vhcurveto ["hrcurveto"] | "vrcurveto"] =>
  51. %      vhcurveto
  52. % +    (hvcurveto vhcurveto)* [hvcurveto ["vrcurveto"] | "hrcurveto"] =>
  53. %      hvcurveto
  54. %    "rvcurveto" (0 y1 x2 y2 0 y3 rrcurveto)* => vvcurveto
  55. %    "hrcurveto" (x1 0 x2 y2 x3 0 rrcurveto)* => hhcurveto
  56.  
  57. % Convert a CharString from Type 1 to Type 2.
  58. % Free variables: font, subrmap.
  59.  
  60. /t1tot2cs {        % <charstring1> <forsubr> t1tot2cs <charstring2>
  61.   10 dict begin
  62.   /forsubr exch def
  63.     % Collect the hints, side bearing, and width.
  64.   /vhints 10 dict def
  65.   /hhints 10 dict def
  66.   /hmcount null def
  67.   /lsb null def
  68.   /width null def
  69.   forsubr not {
  70.     dup t1hintops t1scan pop
  71.   } if
  72.   t1t2ops t1scan
  73.   [
  74.   forsubr not {
  75.     % Insert the hints and width at the beginning.
  76.     width dup font /nominalWidthX .knownget { sub } if
  77.     exch font /defaultWidthX .knownget not { 0 } if
  78.     eq { pop } if
  79.     /hstem hhints hintlist
  80.     /vstem vhints hintlist
  81.   } if
  82.   counttomark 2 add -1 roll aload pop ]
  83.     % Convert the string back to encoded form.
  84.   DEBUG {
  85.     (++++ ) print [ 1 index { dup null eq { pop } if } forall ] == flush
  86.   } if
  87.   /lenIV 0 def        % for charproc_string
  88.   charproc_string end
  89. } bind def
  90. /hintlist {        % <hintop> <dict> hintlist -
  91.   dup length 0 eq {
  92.     pop pop
  93.   } {
  94.     dup length array dup 3 -1 roll {
  95.       exch put dup
  96.     } forall pop
  97.     % ****** SORT THE HINTS BY INCREASING v ******
  98.     { dup length 24 le { exit } if
  99.       dup 0 24 getinterval { aload pop 4 2 roll } forall
  100.       dup length 24 sub 24 exch getinterval
  101.     } loop
  102.     { aload pop 3 2 roll } forall
  103.   } ifelse
  104. } bind def
  105. /uneexec {        % <string> <lenIV> uneexec <string>
  106.   dup 0 ge {
  107.     2 copy mark /seed 4330 /lenIV 5 -1 roll .dicttomark /eexecDecode filter
  108.             % Stack: string lenIV filter
  109.     dup 4 -1 roll length 4 -1 roll sub string readstring pop
  110.     exch closefile
  111.   } {
  112.     pop
  113.   } ifelse
  114. } bind def
  115. /t1scan {        % <charstring> <opsdict> t1scan <tokens>
  116.   5 dict begin
  117.   /opsdict exch def
  118.     % Remove encryption and convert to symbolic form for processing.
  119.   font /lenIV .knownget not { 4 } if uneexec
  120.   0 () /SubFileDecode filter /f exch def
  121.   /cstr [ 20 { null } repeat f charstack_read /END 20 { null } repeat ] def
  122.   DEBUG {
  123.     (**** ) print [ cstr { dup null eq { pop } if } forall ] == flush
  124.   } if
  125.     % Scan the unpacked string.
  126.   /i 20 def {
  127.     % The /END token will exit from this loop.
  128.     opsdict cstr i get .knownget { exec } if
  129.     /i i 1 add def
  130.   } loop
  131.   f closefile cstr end
  132. } bind def
  133. /ciget {        % <di> ciget <token>
  134.   i add cstr exch get
  135. } bind def
  136. /ciput {        % <di> <token> ciput -
  137.   exch i add exch cstr 3 1 roll put
  138. } bind def
  139. /ciswap {        % <di> <dj> ciswap -
  140.   2 copy exch ciget exch ciget 3 1 roll ciput ciput
  141. } bind def
  142. /ciskip {        % <di> ciskip -
  143.   i add /i exch def
  144. } bind def
  145.  
  146. % Hint scanning procedures.
  147. /addhint {        % [<v> <dv>] <hintdict> addhint -
  148.   dup 2 index known { pop pop } { dup length 3 -1 roll exch put } ifelse
  149. } bind def
  150.  
  151. /t1hintops mark /END { 0 null ciput exit } bind
  152.  
  153. /vstem {
  154.   cstr i 2 sub 2 getinterval vhints addhint
  155. } bind
  156. /hstem {
  157.   cstr i 2 sub 2 getinterval hhints addhint
  158. } bind
  159. /callsubr {
  160.     %**** DOESN'T HANDLE FLEX YET ****
  161.   -1 ciget /pop eq {
  162.     % This must be a <#> 1 3 /callothersubr /pop /callsubr sequence.
  163.     hmcount null eq { /hmcount [ vhints length hhints length ] store } if
  164.     -5 ciget
  165.   } {
  166.     -1 ciget
  167.   } ifelse
  168.   subrmap 1 index .knownget { exch pop } if
  169.   dup null eq { pop } {
  170.     font /Private get /Subrs get exch get
  171.     t1hintops t1scan pop
  172.   } ifelse
  173. } bind
  174. /hsbw {
  175.   /lsb -2 ciget store
  176.   /width -1 ciget store
  177. } bind
  178. /vstem3 {
  179.   [ -6 ciget -5 ciget ] vhints addhint
  180.   [ -4 ciget -3 ciget ] vhints addhint
  181.   [ -2 ciget -1 ciget ] vhints addhint
  182. } bind
  183. /hstem3 {
  184.   [ -6 ciget -5 ciget ] hhints addhint
  185.   [ -4 ciget -3 ciget ] hhints addhint
  186.   [ -2 ciget -1 ciget ] hhints addhint
  187. } bind
  188. /sbw {
  189.     %**** WHAT ABOUT Y? ****
  190.   /lsb -4 ciget store
  191.   /width -2 ciget store
  192. } bind
  193.  
  194. .dicttomark readonly def    % t1hintops
  195.  
  196. % Conversion procedures.
  197. /t1t2ops mark /END { 0 null ciput exit } bind
  198.  
  199. /hstem {
  200.     % We handled the hints separately, drop them here.
  201.   -2 1 0 { null ciput } for
  202. } bind
  203. /vstem 1 index
  204. /rlineto {
  205.   3 ciget /rlineto eq {
  206.     0 null ciput
  207.   } {
  208.     7 ciget /rrcurveto eq {
  209.       0 null ciput
  210.       7 /rlinecurve ciput
  211.     } {
  212.       5 ciget /rlineto eq {
  213.     2 ciget /hlineto eq {
  214.       0 null ciput
  215.       2 0 ciput
  216.     } {
  217.       2 ciget /vlineto eq {
  218.         0 0 ciput
  219.         2 null ciput
  220.       } if
  221.     } ifelse
  222.       } if
  223.     } ifelse
  224.   } ifelse
  225. } bind
  226. /vlineto {
  227.   2 ciget /hlineto eq {
  228.     0 null ciput
  229.     2 4 ciget /vlineto eq { null } { /vlineto } ifelse ciput
  230.   } if
  231. } bind
  232. /hlineto {
  233.   2 ciget /vlineto eq {
  234.     0 null ciput
  235.     2 4 ciget /hlineto eq { null } { /hlineto } ifelse ciput
  236.   } if
  237. } bind
  238. /rrcurveto {
  239.   7 ciget /rrcurveto eq {
  240.     0 null ciput
  241.   } {
  242.     3 ciget /rlineto eq {
  243.       0 null ciput
  244.       3 /rcurveline ciput
  245.     } {
  246.     %**** WRONG IF MULTIPLE RRCURVETO ****
  247.       -6 ciget 0 eq {
  248.     -6 null ciput
  249.     0 /vhcurveto ciput
  250.       } {
  251.     -5 ciget 0 eq {
  252.       -5 null ciput
  253.       -1 -2 ciswap
  254.       0 /hvcurveto ciput
  255.     } if
  256.       } ifelse
  257.     } ifelse
  258.   } ifelse
  259. } bind
  260. /callsubr {
  261.   -1 ciget subrmap 1 index .knownget { exch pop } if
  262.     % If the Subr was deleted because it was empty, delete the call.
  263.   dup null eq {
  264.     0 null ciput
  265.   } {
  266.     % Subtract the subroutineNumberBias.
  267.     107 sub
  268.   } ifelse -1 exch ciput
  269. } bind
  270. /vhcurveto {
  271.   5 ciget /hvcurveto eq {
  272.     0 null ciput
  273.     10 ciget /vhcurveto eq {
  274.       5 null ciput
  275.     } {
  276.       12 ciget /rrcurveto eq 6 ciget 0 eq and {
  277.     5 null ciput
  278.     6 null ciput
  279.     12 /vhcurveto ciput
  280.     12 ciskip
  281.       } {
  282.     5 /vhcurveto ciput
  283.     5 ciskip
  284.       } ifelse
  285.     } ifelse
  286.   } {
  287.     7 ciget /rrcurveto eq {
  288.       1 ciget 0 eq {
  289.     0 null ciput
  290.     1 null ciput
  291.     5 6 ciswap
  292.     7 /vhcurveto ciput
  293.     7 ciskip
  294.       } if
  295.     } if
  296.   } ifelse
  297. } bind
  298. /hvcurveto {
  299.   5 ciget /vhcurveto eq {
  300.     0 null ciput
  301.     10 ciget /hvcurveto eq {
  302.       5 null ciput
  303.     } {
  304.       12 ciget /rrcurveto eq 7 ciget 0 eq and {
  305.     5 null ciput
  306.     7 null ciput
  307.     10 11 ciswap
  308.     12 /hvcurveto ciput
  309.     12 ciskip
  310.       } {
  311.     5 /hvcurveto ciput
  312.     5 ciskip
  313.       } ifelse
  314.     } ifelse
  315.   } {
  316.     7 ciget /rrcurveto eq {
  317.       2 ciget 0 eq {
  318.     0 null ciput
  319.     2 null ciput
  320.     7 /hvcurveto ciput
  321.     7 ciskip
  322.       } if
  323.     } if
  324.   } ifelse
  325. } bind
  326. /closepath {
  327.   0 null ciput
  328. } bind
  329. /hsbw {
  330.     % We handled this separately, drop it.
  331.   -2 1 0 { null ciput } for
  332. } bind
  333. /dotsection {
  334.     %**************** NYI ****************
  335. } bind
  336. /vstem3 {
  337.     % We handled the hints separately, drop them here.
  338.   -6 1 0 { null ciput } for
  339. } bind
  340. /hstem3 1 index
  341. /seac {
  342.     %**************** NYI ****************
  343. } bind
  344. /sbw {
  345.     % We handled this separately, drop it.
  346.   -4 1 0 { null ciput } for
  347. } bind
  348. /callothersubr {
  349.   -1 ciget 3 eq {
  350.     %**** HANDLE HINT REPLACEMENT ****
  351.     -2 ciget 1 eq 1 ciget /pop eq and 2 ciget /callsubr eq and {
  352.       1 -3 ciget ciput
  353.       -3 1 0 { null ciput } for
  354.     } {
  355.       (**************** 3 callothersubr -- invalid call\n) print
  356.       /t1tot2cs cvx /rangecheck signalerror
  357.     } ifelse
  358.   } if
  359. } bind
  360. /pop {
  361.     %**************** NYI ****************
  362. } bind
  363. /setcurrentpoint {
  364.     %**************** NYI ****************
  365. } bind
  366.  
  367. .dicttomark readonly def    % t1t2ops
  368.  
  369. % ---------------- Font conversion ---------------- %
  370.  
  371. % Copy a font, and remove eexec encryption from it.
  372. /decryptfont {            % <font> decryptfont <font'>
  373.     % Copy the font, CharStrings, Private, and Private.Subrs
  374.   dup length dict copy
  375.   dup /CharStrings 2 copy get dup length dict copy put
  376.   dup /Private 2 copy get dup length dict copy
  377.     dup /Subrs 2 copy get dup length array copy put
  378.   put
  379.   dup /lenIV .knownget not { 4 } if
  380.   1 index /CharStrings get
  381.             % Stack: font' lenIV chars'
  382.   dup { 3 index uneexec 2 index 3 1 roll put } forall pop
  383.   1 index /Private get /Subrs get
  384.             % Stack: font' lenIV Subrs'
  385.   0 1 2 index length 1 sub {
  386.     2 copy get dup type /stringtype eq {
  387.             % Stack: font' lenIV Subrs' index subr
  388.       3 index uneexec
  389.     } if 2 index 3 1 roll put
  390.   } for pop pop dup /lenIV -1 put
  391. } def
  392.  
  393. % Convert an entire font from Type 1 to Type 2.
  394. /t1tot2font {            % <font> t1tot2font <font'>
  395.   10 dict begin
  396.   /font exch def
  397.   /niv font /lenIV .knownget not { 4 } if def
  398.  
  399.     % Print initial statistics.
  400.  
  401.   (lenIV = ) print niv =
  402.   font /CharStrings get
  403.   dup length =only ( CharStrings, ) print
  404.   0 exch { exch pop length add } forall =only ( bytes) =
  405.   font /Private get /Subrs get
  406.   dup length =only ( Subrs, ) print
  407.   0 exch { length add } forall =only ( bytes) =
  408.   flush
  409.  
  410.     % Remove CharString encryption from the font.
  411.  
  412.   /font font decryptfont def
  413.   /chars font /CharStrings get dup length dict copy def
  414.   /subrs font /Private get /Subrs get def
  415.  
  416.     % Remove empty Subrs, including Subrs 0-3.
  417.  
  418.   /subrmap subrs length dict def
  419.   0 1 3 { subrs exch <0b> put } for
  420.   0 1 subrs length 1 sub {
  421.     subrs 1 index get true t1tot2cs
  422.     length 1 eq {
  423.       subrs 1 index null put
  424.       subrmap exch null put
  425.     } {
  426.       pop
  427.     } ifelse
  428.   } for
  429.  
  430.     % Remove duplicate Subrs (!).
  431.  
  432.     % Make an entry in subrdict for each distinct Subr:
  433.     %   key = Subr charstring, value = (lowest) Subr index.
  434.     % At the same time, make entries in subrmap for any duplicates:
  435.     %   key = higher index, value = lowest index.
  436.   /subrdict subrs length dict def
  437.   0 0 1 subrs length 1 sub {
  438.         % Stack: toindex fromindex
  439.     subrs 1 index get subrdict 1 index .knownget {
  440.         % Stack: toindex fromindex subr firstindex
  441.       subrmap 4 -1 roll 3 -1 roll put pop
  442.     } {
  443.       dup null ne {
  444.         % Stack: toindex fromindex subr
  445.     subrmap 3 -1 roll 3 index put        % fromindex => toindex
  446.     subrdict 1 index 3 index put        % subr => toindex
  447.     subrs 2 index 3 -1 roll put        % toindex => subr
  448.     1 add
  449.       } {
  450.     pop pop
  451.       } ifelse
  452.     } ifelse
  453.   } for
  454.   /subrs1 subrs 0 4 -1 roll getinterval def
  455.   font /Private get /Subrs subrs1 put
  456.  
  457.     % Convert the font.
  458.  
  459.   /chars2 chars length dict def
  460.   chars { false t1tot2cs chars2 3 1 roll put } forall
  461.   /subrs2 subrs1 length array def
  462.   0 1 subrs1 length 1 sub {
  463.     subrs1 1 index get true t1tot2cs
  464.     subrs2 3 1 roll put
  465.   } for
  466.   font /Private get /Subrs subrs2 put
  467.  
  468.     % Print final statistics.
  469.  
  470.   (CharStrings => ) print 0 chars2 { exch pop length add } forall =only
  471.     ( bytes) =
  472.   subrs2 length =only ( Subrs, ) print
  473.   0 subrs2 { length add } forall =only ( bytes) =
  474.   flush
  475.   
  476.     % Clean up the font.
  477.  
  478.   font /lenIV undef
  479.   font /UniqueID undef
  480.   font /FID undef
  481.   font /CharStrings chars2 put
  482.   font /CharstringType 2 put
  483.  
  484.   font end
  485. } bind def
  486.